home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / FinsGold / Modula / Modulrumpf.ged < prev    next >
Encoding:
Text File  |  1994-06-02  |  2.2 KB  |  102 lines
  1. /* Modulrumpf.ged V 0.5 © 1994 Fin Schuppenhauer */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  9. OPTIONS FAILAT 6                            /* ignore warnings         */
  10. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  11.  
  12.  
  13. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  14.  
  15. author = "Fin Schuppenhauer"
  16. street = "Braußpark 10"
  17. town = "20537 Hamburg"
  18. country = "(Germany)"
  19. email = "1schuppe@rzdspc2.informatik.uni-hamburg.de"
  20. date = date()
  21. jahr = word(date, 3)
  22.  
  23. 'QUERY CAT'
  24. german = (result = "deutsch")
  25.  
  26. if german then
  27.    'REQUEST BODY=Modulname: STRING VAR MODULNAME'
  28. else
  29.    'REQUEST BODY=Modulename: STRING VAR MODULNAME'
  30.  
  31. PARSE ARG MODULTYP
  32. if length(modultyp) = 0 then
  33.    modultyp = module
  34.  
  35. if modultyp = 'definition' then
  36.    suffix = '.def'
  37. else
  38.    suffix = '.mod'
  39.  
  40. 'QUERY ANYTEXT'
  41. if result = 'TRUE' then do
  42.    'QUERY PATH VAR PFAD'
  43.    pfad = pfad || '/' || modulname || suffix
  44.    'OPEN NAME="'pfad'" NEW QUIET SMART'
  45. end
  46. else do
  47.    'QUERY FILE VAR DATEINAME'
  48.    if dateiname = 'unnamed' then do
  49.       dateiname = modulname || suffix
  50.       'NAME 'dateiname
  51.    end
  52. end
  53.  
  54. if modultyp = 'definition' then
  55.    'TEXT T="DEFINITION "'
  56. if modultyp = 'implementation' then
  57.    'TEXT T="IMPLEMENTATION "'
  58. 'TEXT T="MODULE 'modulname';"'
  59. 'CR'
  60. 'CR'
  61.  
  62. 'TEXT T="   (** 'modulname || suffix' - Einzeilige Funktionsbeschreibung"'
  63. 'CR'
  64. 'TEXT T=" ** Version     : $VER: 'modulname || suffix' 0.0 (© 'jahr' 'author')"'
  65. 'CR'
  66. 'TEXT T="** Autor       : 'author'"'
  67. 'CR'
  68. 'TEXT T="**               'street'"'
  69. 'CR'
  70. 'TEXT T="**               'town'"'
  71. 'CR'
  72. 'TEXT T="**               'country'"'
  73. 'CR'
  74. 'TEXT T="** E-Mail      : 'email'"'
  75. 'CR'
  76. 'TEXT T="** Erstellt am : 'date'"'
  77. 'CR'
  78. 'TEXT T="** Letzte Änd. : 'date'"'
  79. 'CR'
  80. 'TEXT T="**)"'
  81. 'CR'
  82. 'CR'
  83.  
  84. 'FIRST'
  85. if modultyp ~= 'definition' then do
  86.    'TEXT T="BEGIN (** main **)"'
  87.    'CR'
  88. end
  89. 'FIRST'
  90. 'TEXT T="END 'modulname'."'
  91.  
  92. /* ---------------------------- END OF YOUR CODE --------------------- */
  93.  
  94. 'UNLOCK' /* VERY important: unlock GUI */
  95. EXIT
  96.  
  97. SYNTAX:
  98.  
  99. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  100. 'UNLOCK'
  101. EXIT
  102.